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The Users’ Group continues to grow, and with it the size of the 
Newsletter. We have members from coast to coast and from morth 
of the Arctic Circle to south of the border. Contributions 
continue to flow in from all over the place. This is terrific 
and enables the sharing of information which is the most 
valusble function of the Group. There is quite a lot of work 
involved in preparing and formatting articles for inclusion. If 
stuff is sent in the form of añn article ready for inclusion, 
this makes the preparation a lot easier, If you can send things 
in on cassette, either as a Listing or in NordFack format, this 
is super. But send it anyway. Just keep it flowing and while you 
are writing in, why not say which part of the Newsletter you 
find most useful or send your ideas for improving it. ALL 
cassettes will be returned. 


Back issues Copies of NL-$1 or NL<-#2 can be obtained by sending 
$3.00, Sending $5.00 will get you NL-#1 and NL-42 together with 
the introductory NL-#0. 


John Wood 


April 1983 


This Newsletter is published by Atom Users’ Group Canada, 
812 Cabot Trail, Milton, ONT. LYT 3M8 for the benefit of members 
of the Group. 
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E.ER.C. BASIC FOR THE ATOM By Re Zinck 


INTRODUCTION: 


A conversion board is available from Acorn which will allow ATOM 
owners to use the EB.BE.C. Basic language. The price for this 
board, (in Dect °82) was f43 plus fZ for shipping. At the present 
rate of exchange this comes to about $808 Canadian. The board is 
available directis fram: 

Acorn Computers 

Fulbourn Re. 

Cherry Hinton 

Cambridge CEL 4 JN 
To avoid the inevitable Canada Fost foul-up, (my original mail 
order never arrived in U.K.) I suggest sou phone your order in 
and use VISA. The phone number is 0223 245200. 


DESCRIFTION: 


The board, as supplied, carries the B.B.C. BASIC ROM; an 
operating system ROM, ZK of RAM, s socket for s utility ROM, and 
the necessary circuitry to interface with the ATOM. 


The B.B.C. BASIC language is very close to MICROSOFT BASIC with 
the addition of some rather neat bells and whistles. The 
complete command set is listed at the end of this articles. 


The user can select B.B.C. or ATOM BASIC from the keyboard, or a 
permanent link can be installed. Most users will probably opt 
for the keyboard mode as this will allow either ATOM or B.E.C. 
programs to be run at will. 


The board comes with s fairly extensive booklet detailing the 
installstion and the BASIC command set. Explanation of the 
latter is rather skimpy so a previous knowledge of extended 
BASIC would be s help. 


INSTALLATION? 
Frocedure is simple and can be done in a very short time. 


The board is 3.5" x 6" and is mounted in the ATOM by removing 
several chips on the ATOM board, plugging the B.B,.C. board into 
the empty sockets, and transferring the chips removed to the 
LEC., board. If you are using the TIMEDATA memory board, this 
will need to be removed and mounted externally. More on this 
later. The ATOM must be fitted with full 12K RAM and the VIA 
chip to fully support the ELE GC. board. 


ADVANTAGES: 


Since the B.E.C; BASIC closely resembles MICROSOFT, many 
published programs for other machines can mow he directly 
entered into the ATOM with little or no conversion. AS well, the 
user can now write more portable programs. 


(b) Some rather nest commands are included. Some of these are as 
follows! 
AUTOS gives sutomatic line numbering. 
CHAILIN? loads and runs specified programs. 
DELETES deletes specified lines. 
EVAL? evaluates expressions within strings. 
LISTO: formats listings. 
FAGE? defines text areas. 
RENUMBER? renumbers defined lines. 
RESTORECX)$ allows RESTORE of a defined or calculated line 
number. 

Cc) A complete two-pass assembler is included onboard; and is 
similar to the ATOM, except that. labels can now be in plain 
English, rather than the ATOM format of LLI); etc. 

(d) One of the most unusual and useful features of B.B.C. BASIC is 
the PROCEDURE. This is a very sophisticated type of sub-routine 
with powerful parameter passing abilities and the ability to 
define LOCAL variables with the PROCEDURE, 

(e) Variable names can be ans lenath, but in contrast to many 
BASTICs, the whole word is recognised, rather than just the first 
two letters. 





DISADVANTAGES: 


These could probably be more aptly described as inconveniences 
rather then dissdvantages. 

(8) No schematic is supplied with the board. 

(b) Very few vector locations are given in the handbook.. (e.g. If 
you need a line feed for your printer, where is the “char mot 
sent to printer" hook?) 

(c) IZO port addresses are mot given. 

(d) Memory expansion is cumbersome, due to the differing memory 
mapping. (See end of article.) 

(e) The ATOM DOS and disc cannot be used with the B.E.C. BASIC, 

(f) Graphic functions are confusing. 

(3) Colour is not supported, 

(n) No PRINT USING command is included, but by setting bit patterns 
into the variable  GZ, and using TAB’s, formatting can be quite 
easily achieved. 

(i) My particular board does not support lower-case. I do not know 
whether this is a fault ain the board itself or aif this is 
normal, although the manual refers to the allowed. use of 
lower-case, 

(If anyone out there has had s similar experience, or if yours 
works, I would like to know.) 


SUMMARY: 


I consider the E.B.C. BASIC card to be a very worthwhile 
addition to the ATOM. The user can mow sccess a much greater 
ranae of pre-written programs and tutorials, as well as 
producing programs which are more portable from machine to 
machine. 


APPENDIX 1 


MEMORY EXPANSION: 


Aas mentioned earlier, when using the ELEGO. board, memory 
expansion becomes somewhat difficult. 

Firstly, if uou are presently using the TIMEDATA board 
internally, this must be removed and connected to the expansion 
bus commector externally, 


Secondly, since memory allocation is different for the ATOM anc 
ELEC., modes, deselecting end decoding become a bil of a chore. 
Also, because of this the maximum contiguous RAM allowed in the 
B.B.C. mode is 16K. 


All is not lost, however. TIMEDATA have recognised the existence 
of this problem, and have produce a couple of sheets detailing 
all combinations possible for using their expansion board with 
the BR.B.C. conversion, 


Tf you send me a Bac stamp, T will send vou s cops. 
Mu address isi 

Bob Zinck 

Lewis Lake 

ReRe 3 

Armdasle, N.S. 

BSL. 443 


APPENDIX 2 
BASIC Keywords? 


ABS DEG GOSUE LOG FROC STOF 
ACS DELETE GOTO L.OMEM RAD STRE 
AND DIM HIMEM MISS READ STRS$^ 
ASC DIY IF MOD REM STRINGE 
ASN DRAW INKEY MODE RENUMBER TAR 
ATN ELSE INKEYS MOUE REPEAT TAN 
AUTO END INFUT NEW REPORT THEN 
EGET ENDFROC INFUTLINE NEXT RESTORE TIME 
RFU T EOR INPUTS NOT RETURN TO 
CALL. ERL. INSTR OFF RIGHTS STOF 
CHAIN ERR INT OLD RND TOF 
CHRE ERROR LEFT$ ON RUN TRACE 
CLEAR EVAL. LEN OFT SAVE TRUE 
CLG EXF LET OR SGN UNTIL 
CLS FALSE LIST FAGE SIN USR 
COS FN LISTO FI SOUND VAL 
COUNT FOR LN PLOT SFC VDU 
DATA GET LOAD PRINT SAR WIDTH 
DEF GETE LOCAL PRINTE STEF 


Notei *=shift ^ 
Operators and symbols are essentially the same as the ATOM, with 


several important differences, motably "&" for HEX CR" in the 
ATOM), and "1i" for multiple lines ("$° in the ATOM). 





INTERESTING ADDRESSES 


In this issue we continue the theme of auto running programs by 
showing how one program can load another without the need to 
touch the keyboard, But first, an error correction! Irn NL-32 a 
hash was omitted from the routine to allow any program to he 
auto run. Line | gould read? !'ESB0ETEXXXX 


A.T.&P. page 193 lists 7402008 as the "read character vector". 
?S$2065 and  ?RZÜE normally point to #FES4 which is the start of 
the read character routine which was discussed in  NL-di1. The 
high byte of the address FFE is stored in "$208 and the low bute 
#94 is stored in ?PHEZOA. 


This routine is used in several places by the ATOM operating 
system. For example when loading a program, after printing PLAY 
TAFE the ATOM goes indirectly to PEFES4 and waits for a key to 
be pushed before continuing, To load a program without waiting 
for a key to be pushed we have to redirect the pointer. A 
convenient choice is the end of the previous routine in ROM. 
PHFESS contains $60 which csuses an immediate return to system 
(RTS). Ey changing P#EZ0A to $93 we change the pointer as 
required, 


However this has to be used carefully, After loading the program 
the ATOM would normalis be sent to PHFES4 again ta read the 
keyboard and find out what to do mext. Tf the pointer is still 
set to PHFESS s machine code loop will be set up continually 
printing an error message and beeping. To prevent this from 
happening the first program which is loading the second — one 
should reset ?É206 to #94. 


AS an xample of how this may be used, you may have a long 
program in the lower text space which requires extra date stored 
in the upper text space. By putting the following lines at the 
start of your main program you can cause it to load the second 
part automatically. 


10 REM AUTO LOAD ROUTINE 
20 PEZOA=#93 

30 XxNOMÜN 

40 xLOAD"FART-Z" 8200 

30 ?2065-14194 

60 *MON 


If the main program is loaded and run with XRUN and "PFART-2" is 
recorded immediately after it on the tape then they can he 
loaded and rum together without having to touch either keyboard 
or cassette recorder. See NL-#2 for details on  xKüNnina a 
program containing arrays. 


BUBBLE SORT 

We are not the only ones who can include errors, 

The SORT proerem printed in the Gladstone Plyer can be made to 
rur by changing two lines to read. 


$540 STA (EBG); Y S80 BNE VU6 


The following program will dump a screen of high resolution 
graphics to a Centronics 739 printer. Line 10 is onls 
necessary if the graphics are drawn as light lines on s dark 
backeround, 


LOzFOR A=O0TO 192:MOUEO,A^$:FLOT6,2596,0$2N.6 (Reverse screen) 
20 F.$21$24$27$37$48" (Lack sereen, enable printer graphics ) 
30 A=#40;5=#20 

40 F.I-0TOS$1740 S.tCO0;F. J-0TO €1F;M-t80;F.K-0 TO? 

$0 X-43$8000-I4J5Dz4$2052Nz12F.Lz0 TOA SSIF X?PLAMID=D+N 

60 NZN*NIN.IP.SDIMSM/23N.$N. GP.73N. 

70 PF.$27$19$3$6;E. (Set printer to text and disable) 





10 REM FRINT OUT A NUMBER IN BINARY? EY R ZINCK 
20 DIM LLCS) Dimension labels 
30 FOR Nel TO 2 Set up two pass assemble 


40 DIM FC-1) 
30 P.$21 


600 

7OILLO CLO Clear carry flag 

80 LDX @8 Loads counter 

90 STA #80 Puts A in memory location #80 
100:LL4 ASL #80 Shift bit into carry flag 
110 BCC LLL If @ branch to LLi 

120 BCS LL2 If 1 branch to LLZ 

130:LL1 LDA @#30 Load Ü into accumulster 
140 JSR #FFF4 Frint it out 

150 JMF LLS 

160:LL2 LDA @#31 Load 1 into accumulater 

170 JSR #FFF4 Print it out 

1802LL3 DEX Decrement counter 

190 ENE LL4 Is count 0 , if not do again 
200 RTS 

2101 

220 NEXT N;F.$64912 Second assemble pass 


230 F."ENTER DESIRED NUMBER" ’ 
240 F."MAXIMUM VALUE 2955'"* 


250 INFUT A Input number 
260 IF A-255 F."TOO LARGE"^3GOTOZ30 Error trap 
270 IF Az0 F."NO NEGATIVE NUMBERS" $ GOTO 230 ditto 

280 LINK LLO Link 


290 F.':GÜTO 250 


wee ea mee IR TRE a ESD Hel 


The ATOM CALC program is Acronsoft’s version of an electronic 
spreadsheet. This type of program arranges the computers 
memory in the form of a arid. The user can then enter 
information into the various cells and can also have the 
computer manipulate this information in various mathematical 
Was s 


Or the Atom the grid consists of 62 columns by 255 rows with 
the columns being numbered A to BK, and the rows 1 to 255, If 
you wish Lo refer bo a single grid you do so be referring to 
its column sand row address, The top left hand erid is AL anc 
the one to its rioht is Bl etc, 


The progran is on EPROM and fits into the Utility socket of 
the Atom. A 28 page manuel accompanies the EPROM. As with 
other Acorm marvels il leaves a little to be desired but it is 
not too bad. The last page contains s Summary of Commands 
just like the Word Fac Manuel does. Knowledge of programming 
Or a programming Language is not necesserus To enter ATOMCALC 
yon type in the word CALC and then press RETURN. After doine 
this s three line header appears. The first line contains the 
orid reference and the word ATOMCALC. The second line contains 
a copuriont and the third lines shows asa prompt a=) which 
follows information as it is typed in. 





The area under the header is one section of the sheet 
consisting of 13 rows deep and 4 columns wide, The cell thet 
you are in is highlighted by the cursor, This can he moved 
shout using the cursor control keys. 


Data can be saved on cassette or on disc. However to sa 
info on disk you must call up the disk operating system before 
using the program since there is mo way of accessing tne disk 
once you're in the program. You could press BREAK, if you 
forgot at the beginning, and then call up the DOS and reenter 
by typing CALCK and the pressing the LOCK key. Tf yon don't 
you could loose your data, 





Some Advantages over other similar types of programs? 
You can set the width of each column up to 32 characters. 
You can block replicate data. 

The program incorporates a scientific calculator which 
features standard mathematical and  brigonometrical functions 
and constants, 

Alternate print-outs sre available. Gne gives alil data and 
calculstions within a defined bock. The other prints out the 
contents of the sheet in tabular fors es seen an the screen. 





DEALERS ANNOUNCEMENTS 


Two new dealers are now handling the Acorn Atom. These are} 
Microcomputer Clinic, 327 Pine Street, Nanaimo. B.C. 

and Sonics Northern in Sudbury, QOnterio. 

Prices sre coming down. The minimal Atom with GK ROMZ 2K RAM is 
now $200, The expended Atom with 12K ROMZ ZK RAM is $350. The 
BEC ROM board is available st $160 and the disc pack is now $650. 


These prices sre aporoximate. see your dealer for a firm figure, 


HARDWARE 


Many members are developing hardware for the Atom. Coupled with 
that available through dealers there is now a wide range of 
add-ons. 


Gordon Larsen reports that a Shugart SA400L can be added to the 
Atom disk pack to give a second drive. The Shugart simply plugs 
in and is completely compatible with the Atom DOS. Disks 
formatted on the Shugart are transportable directly to the 
Olivetti drive included with the original Disk Pack. Gordon 
would like to hear from anyone else working irn this area, 
Particularly anyone who knows uses for the disk commands "SPOOL" 
and "UDU'", His address ist 124 Wylie Place, Fort MeMurray, ALTA. 
T9H 4R4, j 


Alan Hepburn has. extended his Atom bus using a 64-way flat 
ribbon. He found it necessary to add buffers on the extension, 
Virtually copying  IC2 IC3 and IC4. He also added 150 ohm pull 
down resistors on the address lines, This allowed him to extend 
the bus up to 30 inches. DIN 41612 flat cable  connecters are 
stocked by Panduit Canada Ltd. 140 Amber Street, Markham, QNT, 
L3R 38. Alan has built several expansion cards which are 
installed in s Sehroff chassis. These include s ROM selector 
board, memory expansion, a floppy disc controller driving as 
Shugart SA4J0OL — and aen EFROM programmer. He recommends 
"Frogramming and Interfacing the 6502, With Experiments" ny 
Marvin L dedong, published by Sams & Cos; Indianapolis. 


Robert Faquette sends schematics for two memory boards, printed 
in this Newsletter. The smaller 3K board utilises ICé whith is 
already decoding the chip select lines for #2000 to $2800 and 
$3C00 to #4000. ALL the other lines can be picked up on FL6/7. 


The January edition of "InfoAge" contains asa schematic for an 
RS232 interface for the Atom. A simplified form of this could be 
used to produce the TTL level sionals required by some accoustic 
couplers which recently came on the surplus electronics market. 
The magazine also carried s listing for s "bare bones" driver 
routines i 


Colin Hinz of 1118 College Drive, Saskatoon, SASK. S7N OW2 is 
planning to design and set up a bulletin board system for Atom 
users. This could be either a simple, inexpensive system 
utilising parts of the existing cassette operating system, or be 
based on a standard modem, which would allow interfacing with 
other data sources. Colin is asking for feedback from other 
members before he decides which way to jump. 


Many members have found s ROM selector board to be very useful, 
Typically these allow two or four  EPROMS to be installed in the 
Atom; Any one of these can then be called from the keyboard as 
the utility ROM. The latest version is the Timedata MZ 165 ROAM 
board which will hold up to three EPROMS and 4K of RAM. This 
sounds very useful slowing utilities to he XLOADed from 
cassette. Also for letting you develop your own routines and 
test them in memory space #4000 to #6000, before fixing them in 
ROM. 
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READERS ASK 


Robert Faquette has recently bought the LISE program but was not 
able to get hold of "LISF Theory and Fractice". If anyone would 
loan him the booklet he would be very grateful, 


SOFTWARE 


The Users’ Group library of programs continues to grow. Reginald 
Nelson has sent a first rate Mortesee Analysis program. This 
Will calculate the monthly payment and give the status after any 
period of T months. Options are provided to show the effect of 
making an extra monthly payment, changing the interest rate or 
the period etc. 


Many of the programs have been listed in the Newsletter. However 
some, especially the longer ones have not been listed. Lisa Chen 
sent a TicTacToe game which is neatly set up and well 
documented. Alan Hepburn provided a sophisticated cdisagssembler. 


To get the most out of this library we need to evolve some way 
of distributing it on cassette. Local  mweetinos are one way when 
members live close enough. For others as "tree" with distribution 
branches may be the way. Any suggestions? 


+ 


The library at the present includes? 


TEXTPRQ TURTLE MORSE 
TICTACTOE l CRAWLER MORTGAGE 
DISASSEMELER LUNACY CAMEL. 


HAFFY LOADINGS 


Several tips nave heen sent to improve the cassette operation. 
One or the other may be helpful to you, 

1. Put an attenuater or filter in the line to or from the 
cassette recorder, 

Ze Turn the printer off when loading or saving. 

3. Disconnect the cassette out lead when loading and the 
cassette in lead when saving: 

^. Keep the recorder well away from the TV or monitor, ensure 
that the cables are not twisted together, 

5. Avoid the end few inches on the tape especially if both ends 
of the tape are used. 

6. Do not use both sides of s tape, 

7. Replace IC46 an LM358. Two members reported that this cured 
things after the Atom had become very volume sensitive. 


LOCAL GROUP NEWS 


There have been three meetings of the Halton and Surrounding 
Region local group. Attendance has grown from meeting to 
meeting, The next meeting will be on Tuesday, May Ord. at St. 
Marks school, 2145 Upper Middle Road, (between Brant Street and 
Guelph Line? in Burlington. 


The meeting will start at 7:30. Tim Mackinnon will be giving a 
short talk on poking in high resolution graphics and Alan 
Hepburn will have some of his hardware extensions, There will he 
a small charge to cover the cost of the room. This will likely 
be $i to $2 dependending om how many people come. See Fred 
Springer on the night. 


10 REM morse code tx tDANIEL DULONG -VE2GAD 
20 P,$12;P "(r1 (mn WAIT s" 
30 DIM CCO),UJ(L32,U9 (25) 
40 P.$21} FOR A=1 TO 2; DIM P(-1) 
30 
60\ generate tone 
70:070 LOA L 
80 LDY #228 
90:UU1 LDX 422A 
100:0U2 DEX 
110 BNE UZ2 
120 EOR 84 
130 STA L 
140 DEY 
150 BNE Wi 
160 RTS 
170\ scan keyboard and read key 
180:UJ3 LDA 4B001;CMP G37F;BEQ ULM 
190 JSR 4FE71 
200 CPY &DjBEO UUS 
210 CPY GED;BEQ Wd 
220 CPY @B4{BEQ UU7 
230 CPY &H2;BEQ UU13 
248 TYASCLCIADC 8420 
230 CMP BA3F;BEQ UU? 
260 CMP BE3E;PEQ UULO 
270 CHP @#3D}BEQ UUll 
230 CMP @#3C}BEQ UU12 
290 JOR 4FFF4 
300 STA C3RTS 
310:U44 JSR 4FE71 
320 CPY @f17;BEQ UUS 
330 TYA;CLCIADC @#20 
340 JSR 4FFF4 
380 STA CjRTS 
360:U05 LDA GHD;STA CERTS 
IZMUS LDA 0420; JSR SFFF4TSTA CIRTS 
380:UU7 LDA &dSEPJSR SFFFA:STA CERTS 
390:UU8 LOA 8427; JER AFFFA:STA CIRTS 
A00:UU9 LDA @#2F {JSR 4FFFA;STA CERTS 
41030010 LDA GEZETJSR SFFFASSTA CIRTS 
470 UULL LDA @#2D3U5R 4FFFA:STA C70;RTS 
430:UJ12 LDA &2C;JSR 4FFFASSTA C RTS 
44030013 LDA @F5CfUSR SFFFASSTA CERTS 
4301 
460 NEXT A} P.$6 
470 W(5)2115:00(6)287 0 (7226850 (8)25459/(2)2435 9 (10) 735 
480 UU(11)231:00(120228) 0 (132226) 90(140 218; 9 (132210 
490 UJ(15)29500 (1728; UJ (19)z6: AU (20 = 
500 0(21)24:00(22)23;U0 (232221 V (24219 (23-0 
910 P.$12 
520 p,''i((m 


eee 


special characters! 


530 P," — @=HAIT STGNAL"’,"  >tERROR"” 
548 P." <3END OF TRANSMISSIQN'" — WB" apeg" 
550 P." (PRESS ANY KEY TO CONTINUE, LINK 4FFE3 


560P$12;P. ''' ^ ^ “ENTER SPEED OF TRANSMISSION" 
570 INPUT'"(BETWEEN 5 AND 25 WPM" V 

380 IF V5 OR ¥>25 GOTO m 

590 IF V»4 AND V<=15 D-80;6-240;E-3 

600 IF V15 AND Vc-20 D-60:6-180:E-2 

610 IF V»20 AND Wie25 D-90:G-190;E71 

620 P.$121L-18002: 4225-170 :REM Tone Pitch 





e30dL INK UU 

640 IF 90-341 GÜS.i;REM lines 470 to 920 a-z 

450 IF 20:12 608, a: G08 c3 G0S.q 

660 IF ?C-HM3:GUS. i$ GOS c GOS. j 

670 IF ?C-HM 60S. a; GS Cf GUS.h 

680 IF 2C=#45 GÜS.b 

490 IF 70-846 GOS.n}G05.c?Q0s. j 

700 IF ?C=#47 GOS.a;GOS.c}G0S, j 

710 IF ?70=#48 G0S.b}G05.c}G05.g 

720 IF ?C=#49 GüS.h 

730 IF ?C=#4A GOS.b}605.c;605.e 

740 IF ?C-HB GOS.a;G05.c;00S.i 

730 IF ?C=#40 G0S.2}605.c}60S.h 

760 IF ?C=#4D GOS.f 

770 IF ?C-HE GOS, j 

780 IF 2C=#4F GOS.e ; 

790 IF ?C=#50 GOS.i;G0S.c}C05, j 

800 IF ?C-451 GOS.f:GOS c: GS. i 

810 IF ?C-4352 COS bi GOS c 1GUS, j 

820 IF ?C=#53 GüS.q 

830 IF 70=#54 GüS.a 

840 IF 2-455 GüS.biG0S. cPGUS. i 

838 IF ?C-E56 GÜS,hiGOS. C$ 608. i 

840 IF ?C-£37 GüS,biGÜS. ci GUS. f 

8/0 IF ?C-458 GOS. j}609.c}G05.i 

880 IF ?C-439 GOS. j COS C$ GS. f 

900 IF ?C-430608.e: 605. c1G0S ?;REM lines 930 to 1020 0-9 
910 IF ?C-431 GOS.i;G0S.c}00S.e 

928 IF ?C-432 GOS. hi GOS.ciGUS.e 

930 IF ?C-433 GüS.aiG0S. c 1GOS 

940 IF ?C-434 GüS.q: GS c1 GUS. d 

950 IF ?C-435 GÜS.hfGUS.ciG0S.a 

960 IF ?C-436 GOS, j$G0S c1 G0S .q 

970 IF ?0-4137 GOS. f GOS. c GOS 

980 IF ?C=#38 G0S.e;G0S.c}G08.h 

990 IF ?C-439 GOS.e;G0S.c}605. j 

1000 IF ?C-42E G0S.i;G05.cfG05.i;60S.c}G0S.i}REM + 

1010 IF ?C-42C COS.f$GOS.cPGOS h1GOS C $608 P EREM. , 

1020 IF ?C-438 GOS, j1 605. c2 608. j}G05.cpG05. j REM $ 

1030 IF ?C-43A GOS.e}GOS.c}G0S.q}REM $ 

1040 IF ?C-43F GOÜS.hiGOS c: GOS P GOS c1 GS n; REM. ? 

1050 IF ?C=#2F GOS a: GOS. c EGOS nh 1608 cr G0S. j; REM / 

1060 IF ?C=#40 GOS. i;GO5.cfG0S.q/REM wait 8 

1070 IF ?C-45C GOS.a}GOS.c$G0S.9}G0S.c}G0S.asREM BK \ 
1080 IF ?C=#2D GOS. j;COS.cfG0S h 1 GS CEGOS, i REM - 

1090 IF ?C-43C GOS.i}COS.c}G0S.i;G05.c;G0S .53REN end of trans 
1100 IF ICE GOS.9}G0S.cfG0S.h3G0S.c}G05.q}REM error > 
1110 IF ?C-427 COS.ifG05.c}GO0S.e;G0S.c}G0S.b;REM ' 

1120 IF ?C-4SE GOS. j; GS c $608, i1 GUS c: GUS P $608 cEGOS i REMCO 
1130 IF ?C-3280 G.z 

11A0zFOR N=0 TO WV SWAITENEXT N 
1150 GOTO d 

1160a?£22E-G;LTNK. UUDTR. REM dah 
1170b?422b5-D;LTMK UUOSR. PREM dit 
L180cFOR N=? TO EPHAITINEXT NGR: 
1190e6G08 2:608. c: 605 a: G05 0$ G0S af R. 
1200fG05 a: G0S c; GS aff. 
12109608. 5:605, c1 G0S b GUS c; 60S biR. 
1220hnG08 0:608. c: 605. b;R. 
12301608 52608 c: G08 aR 

1240 j608 a: C08 c GOS. biR. 


12. 


Analusis for Canadian Morteages 


10 P,$12;8-0;REM IF DISPLAY OF ZI,XU,XY IS DESIRED, SET 2-9 


20 REM TO CANCEL DISPLAY OF ZI,XU,XY RESET Z=0 


3 pe" analysis"’ 
40 P," FOR " 
$0 P." canadian Mortgages"'* 


60 REM BY} R.E.NELSON (1983) 


70 P." CALCULATES MONTHLY PAYMENTS"^" FOR ALL!! MORTGAGES:-"' 
. 80 P." FOR EOP. AT "T^ MONTHS;"" 


90 P." CALCLATESIt-"" 
100 P," EXACT BALANCE; PRINCIPAL CREDIT;"' 


110 P." INTEREST CHARGED AND"^" TOTAL AMOUNT PAID."’}G0S.q 


120 GS. 


130 P,'" -enter worigage data—"''18-0]X-0:20-0/T-0;2F-0 


140 FIN "LOAN $="ZA 

150 FIN."INTEREST, (S.A.R.Z)="2R;@=0fF X=3 6.170 
160 IN."LENGTH OF LOAN, MONTHS-"M 

170 ZI-CG32R/2000^(1/60-1) IF Z&-0 6.190 

180 FP."MONTHLY INTEREST FACTOR-""ZI' 

190 HE CO-OHR/200)^CW/6))/2IMHF. 2450 6,210 
200 FP."MONTHLY PAYMENT MULTIPLTER-" ZU" 

210 ZPzZA/ZUIFP."MONTHLY PAYMENT — $-"ZP'jGOS.T 
228 FIN."ENTER ROUNDED PYHT$-"ZP 

230 IN."ANALYSIS FOR ‘T° MONTHS="T;@=0;P.$12 

248 ZYzCG-CHZR/2000^C-T/6)) /ZDHIF. Z4=0 6,260 
250 P."M,PYT. MULT, "T"MONTHS-" FFP ZY* 

260 IF X<=0 OR Xo=2 6.290 

270 P.$12;P.'fFIN." OVERRIDE PAYMENT — $="20}4P=4P+20 
280 FP." NEM MONTHLY PAYMENT#="2P’ $608 qa; 60S x5 870 
290 1B- GA-XPXZY)/ (1-XIXZY) 

300 ZC-XA-XBEXE-ZPXT )20-2E- 2618-0 


. 948 P," ------wortgage status--———"''HF X-7 GOS. 


3280 P," -after " T" payments" 

330 P.'"BALANCE AT "T" PYTS $-"IFP.2B'" HF X=7 GOS.u 
340 FP."PRINCIPAL CREDIT — $-"ZC' 

350 FP."INTEREST CHARGED — $-"2D'':IF X-7 GÜS.w 
340 FP TOTAL AMOUNT PAID $="ZE‘jG0S.q;G0S.4 
370 P.'" NEXT ACTIONI-"" ^: TF X>=1 6.450 

380 P."  1- EXTRA MONTHLY PAYMENT ?"' 

390 P." 2- CHANGE'T'MONTHS ww 

400 P."  3- CHANGE SARZCINT.RATE) ?"' 

418 P." — 4- IN DEPTH REPORT rad 

420 P." 5- PAY OFF MTGE NOW one 

430 P." á- START WER ue 

40 P." 7- MAKE A LUMP PAYMENT — ?""* 


450 P.'" OPTIONS ARE} 1,2,3,4,5,6 OR 7"''; IN." CHOICE IS"X 


460 IF X-1 6,270 
470 IF X-2 6.230 
480 IF X-3 6.150 


The analysis is menu driven. 


PAYMENT", then when the 
Enter? XE-ZF 


byt Reginald Nelson 


490 IF X-4 6.530 

300 IF X=5 6.430 

310 IF X-6 6.130 

320 IF X7 G.t 

330 ZJ- GP-ZAXZI)/2P10058-0;P $12 

340 FP,'"PER CENT PRINC’L, 1ST PAYMENT="“2u’}G0S.q 
330 P."-—HTGE DATA AT "T"TH PAYMENT---"/ FZH-XBXXI 
960 FP,"PRINC'L/MONTH $z"XP-2H' 

3/0 ZR-OIP-XHYM/ZPX100;FP."PER CENT PRINC/L — -"ZK' 
380 FP.'INTEREST/MUNTH — $-"ZH' 

390 XL-XC/ZAX100;FP,"PER CENT MTGE PAID-"ZL' 

600 ZN- CO CLOGZP-LOG (ZP-XIX2B) )/ (LOG CLEZR/200)2) $60.5 
610 P.'" REMAINING AMORTIZATION PERIOD"! 

620 P," z"UALSG" "$4. "MONTHS" $GOS Q3 608.16. 450 

630 P.$12;P.'" —SUMMARY OF COSTS AT PAYUFF--"'1GüS.q 
640 IF ZF>0 AND X-5 GOS.v 

655 ZHEZBXZLFP."FPINAL INTEREST — $z"ZH' 

660 FP,"FINAL PAYMENT $=" AB+AH 60Sa IF X=5 GüS.z 
670 FP."MTGE BALANCE $z"XA-ZB-XC' HF. X=3 GOS.u 
680 FP."PRINC’L REPAID = $-"ZBeZC'" 

690 FP."TOTAL INTEREST —— $2"AD42H'" 

700 FP."TOTAL AMOUNT PAID $="2B+20+2D+ZH’ }G05.q 

710 GOS.4;6,450 

720 END 

730900 Fe "=" UC 732 

740 Pe Re 

7304 P." PRESS SPACE BAR TO CONTINUE" }LINKSFFES;P.$125R, - 
76lrS8-10:F,0-0 TO 1:5-8X10;N,U 
770 DIMTI2,612,H12 

780 $T="00000000" $T-$T* (LEN(T)-2) :$G-$T 

790 XP2XCOPXSHS2/10) {STRAP »G 

808 ST4LEN(T)-$61$G-$T 

810 J-LEN(CHF.0-0 TO LENCG) IF G*0-46 J-0 

820 N,$$GtJ-"" :$H-$G* CLEN(G)-2) } $G+(LEN(G)-2)="" 
830 P,"ROUNDED PAYMENT =" UALSG" "$H $R: 

840s S=100;P.$14 

850 DIMOI2,C12,012 

870 $0-"00000000" $G-$Q* CLEN(Q)-02 1$G-$Q 

880 Zi CONXSH5)/100) STRAN; G 

890 J-LEN(G)F,0-0 TO LEN(G) IF G?0-46 Jz0 

900 No $$Gtde"" 3 $H=$G+ (LEN(G)~0) 386+ (LEN(G)-D)=""5R, 
910t FIN." LUMP PAYMENT $="ZF }G0S.q36.140 

920vP." --INCLUDING LUMP PAYMENT--""jR. 

930u XC-XA-XBTEC-ZCHAF iR. 

940u XE-ZPXTE ZE-ZETAF HR 

950x FWD TO 300 HAITIN HIR. 

960z XC-ZA-ZB1XC-ZCHXF FRC-XC-XF HAC-A6- 2B 


Xf option 7 is chosen -"MAKE A LUMP 
Atom promts for input of "Loan  $z"i 





1 G0T010 
2 BY ROBERT PAQUETTE 
3 A VARIATION OF XxCRAWLEREX BY G.HILLEBRAND -PUBLISHED IN! 
4 INTERFACE 
S THIS VERSION FIRST PUBLISHED IN THE NEWSLETTER OF! 
6 THE ATOM USERS’ GROUP CANADA 
7 IF YOUR ATOM DOES NOT HAVE THE TOOLBOX, DO THE FOLLOWING. 
8 DELETE LINES 1074909550, 
9 DELETE THE WORD POP FROM LINES 5107570 
10 PeS21sLINKEAFOOFF.$6 
26 605.590 
36 A-0;Bz0:DIM V(5)i1U-$04081020:U1 4-3 02- 
40 P.$21:DIM NN1D:P(-O E : 
30: NNO LDA BU;STA £BODD;LDA $BDOI:EOR 816:5TÀ #905RTS\A UP 
60: NNi LDA B3:5TA 3BODDILDA 4B001:EOR GB;5TÀ $71 1RTOMA LEFT 
70: NN2 LDA 81:5TÀ $B000:LDA 4B001:EOR 88:8TÀ $72:RT5XA RIGHT 
BOS NN3 LOA 85;5TÀ $BO00:LDA &BODI;EOR BASTA $93:RTSXÀ DOWN 
90: NN4 LDA 84:5TA 4B00D;LDA #BOOLFEOR B2:5TA $94;RTSNB UP 
100: NNS LDA 82:5TÀ $BO00:LDA #BOOLIEOR BA;GTÀ #95;RTS\E LEFT 
110? NNA LDA 8B;STA $B000:LDA $B001:EOR 81;STAÀ $94FRTSNB RIGHT 
120; NN7 LDA 85:5TÀ 4B0005LDA SBOO1EOR B1:5TA $97;RTSAB DOWN 
1303;P $6 
140 CLEAR 0iHOUED s 0: DRAMA; DS DRANA3s 425 DRARO » 425 DRANO v0 
150 94E1-0;P.$30* CRAWL — SCORES "AB 
160 C-30:D240:E-305F24:0-3:1-2 
170 PLOT 13:C DiPLOT. 133E3F 
180 F.T21T031?4804D-1:9481CD-2 
190 FU=1TO2Z55WAITIN. 
200 ?5804D-140:?481CD-140 
210 F,U-1TO2S WAIT: iN. 
220 98E1-0:P,$30* CRAWL — SCORET'A B 
230e LINK NN0:2-?4B002;F , Y-0TO1:N. 
240 2-215: ?45002-2 
250 IF?$90-255:6, 390; REM A UP 
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260 LINK NNi 
270 1F?4912255: 6, 400; REM A LT 

280 LINK NN2 

290 IF?492-255:6, 410: REM. A RT 

300 LINK NN3 

318 IF (28935255) 1 493-294) 16, 420 
320 6.(380+0%10) 

330c LINK NNM4;IF ?$74- 


25316, 430; REM B UP 
340 LINK NNO:IF 9495-252 
39 
25 


ARUREH B LEFT 
450;REN B RIGHT 


350 LINK NNé:IF 749623546 
(98972247) 6, 4605 REN B DOWN 


360 LINK NNZ:IF (?497- 
370 6, (420 10xT) 
380d b.e 

390 DzD*1:G05, asPLOT13:2C9Ds0-1:6.c 

400 C-C-1: E05, a5 PLOT1 350 :D30-22:6,c 

418 £-CH $005 as PLOTI 3C D30-3i 6e 

420 D-D-1:605, asPLOTI3C1D;0-4i6.c 

430 FzFH1: 605 biPLOTI SEP SIS: 6. d 

440 EzE-1: 0S D; PLOTIS s EoFiI-2:6,d 

450 E=E+i GOS. bI PLOTISsE FsIS3i D. d 

440 FzF-1:00S biPLOTI EF IS 4: Gi d 

370a PzC/2*:(037-0)/3132 8000 

480 QzCPRQPETET-DYZ332) O0) 

490 IF Q=1 F.Hz100T0105, 10: BE Helin, 

500 IF 0-1 BzBH1;P, $30 ' CRAHLER B HAS WUN!!!';F,X-0TO30005N, 
4180 IF ü-1 POPsG.140 

328 Re 

330b PzE/2*(47-F)/3x32 8000 

540 üz(?PELUP CERTE CA7 -F)23120) O0) 

550 IF 0-1 F,Hz10T01008, 103 BE Ho 15. 

580 IF 0-1 A-A*1;P. $30" CRAWLER A HAS WON!!!" '5F.X-0T03000:N. 
570 IF Q=1 POP;G.140 

380 R 

990 P,$12''" XX CRAWL xx" 

600 P.''*YOU HAVE TO TRY TO LOCK'''THE 2ND PLAYER IN AND'' 
610 Pe" LET HIM COLLIDE ON YOUR ''"TRAIL,..'' 


i 
b 
E 
) 


à 
$ 
à 
E 

E 
X 


620 P.' PLAYER à — PLAYER B'''UP B i 
630 Fa" DEL''' DOWN á J" ' "RIGHT Fr 
640 F.* [''* LEFT D et 


&50 P,'' RESTART THE GAME BY SIMPLY'''PRESSING A KEY."' 
440 Ps" SUCCESS... YOU NEED IT! !SLINK 4FFESSR. 


FOR SALE 


Fred Springer knows of two Atoms 
12K ROM with Word-PlPack and printer 
$| 905 Glenwood, Burlinetons; ONT, 


Robert Faquette has an Adventure 


for. sale, Both are 12K RAM + 
interface. Asking price $400. 
LZT ZJ8, (416) 632-2044. 


Game for sale. (If you have 


used Robert's Text Processor in NL-$2 you can guarantee thet his 


game will be good.) Send $8.95 
RRFL; Chelmsford, ONT. FOM 1L0, 


first class mail. 


him at 13 Hazel St., EOK 2, 


and he will send you the eame by 
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see NL~4 for errors 


(EIG) KIDS PAGE 


i REM Xxxlunacuxxx BY COLIN HINZ 
20!'437E0-£8EA08F84;  £37E4z9460948F ; E 37EO-$898039 58F 
30DIM NN(32,MMCOO,KCL,BECED 
40F=#2800:COS.a3REM ASM 
SOIF Cz70;7K-459 
60IF ?TK-z459 GOS.H3F.L=#8400TORBSFF 3 IzsA.R.X2551N. 
Z7ü0aF-100 
BÜIF?Kz-459:GOS.b 
PÜF PARIZ; FE1-20; 78000-1440 

100IF?HKZz^24$59:G0S.efG.f 

110G0S.c 

TZ0CU.2,43P."THYS MACHINE WILL EXPLODE ON" 
130CU.12,463;F."CONTACT" 

L140 TF ?K=#€59 3608.4 

LS0fF.Q=0T025 WAIT 
160LI.NNÜ;F.I-ITOZ2O0;HAITiN.;LT.MMO 
170F.Is1TO20;WAITIN.IN. 
180IF?K-429;7K-0;0-0 

1906G.o 

200aF,.921 

2100 

Z20t:MMO0 LDX BHOC 

230:MM1 LDA #37EF,X3STA #8168, Xİ DEX 

250ENE MMI RTS 

ZIO NNO LDX @#0C 

260:NN1 LDA #37DF,X$STA #8168, I DEX ENE NNI 
270RTS 

2801 

2P0P $45R, 

300bREM EEGINNINING???!!!) 
3I10CLEAR1;COLOURG:EZA.R.Z100:H-Ah.R.X27-46 
320F.Izs1TOÜ E$A-sA.R.Z64;:BzA.R. X64 
330COLOURCA.RZ3*12 $FLOT13,6,E 
34A0IFFZ10;BEEPCAX3-102,CB/H1) 

3S90N.R. 

S360cREM BORDER 

3700-48000;l-.IQ TOQ*322;?IZ425;N. 

S80F .T=QTOQ+5115.32; Iz£$205jN. 
390F,IsQr480TOQ4* 511; ?Iz$24A;N. 
400F.IzQt*r31T0Q*511854,325 PLE ZA N, Re 

410d REM COPY IT !'!!' 

4200-49000; R=#84600 
430F.,Is0TOS118.4j;R!I-Q'I;N.;R. 

440eREM REINCARNATE MATRIX 
9500-8000; RRz€84600; T8400; LZ E£8SFF 
460F.,Izs0TOS118.4;I!'$8000z65.R.;N. 
470F,IsüTO0S11:GzCOIX2)?$£90009-0C(IXx24710?7$9000)0x256 
4S0G?R=GPRIN. FR. 

490hREM MATRIX SET-UF 
S00F.I-£f$9000TO£$93FFS.2; "L-I/2:I?1-CI-$90002/5123N, 
SLOF LL TOLO0OOST=A.R ASL 23 JAR ASL 23 I-2IX2:d-JXZ 
5208-I?E9000;D-I?$9001;I749000z47?749000;:I?390012471$9001 
$5S30J?$9000z8207$€90012D;N.iR. 


The program listed above was received early in April from the 
the College of Engineering st the University of Saskatchewan, 
Colin Hinz claims that it lives up to it’s name! It uses both 
the floating point ROM and Toolbox.  Eefore running it for the 
first time set C=1, 


